Top 10k strings from Teonw (19xx)(-)(nl).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 M(N)=(Z1+Z2)*J4
   7 )-(J5*J5))
   3 Y$="WORLD"
   3 W$="R2: OUT OF COMPUTERDATA"
   3 V$="HIGH-ALTITUDE BURST"
   3 K$="NO 50 PERCENT-BORDER"
   2 X)-(J5*J5))
   2 V$="R1: OUT OF COMPUTERDATA"
   2 T$="HIGH-ALTITUDE BURST"
   2 =)-(J5*J5))
   2 -J5)/20000
   2 -J5)/10000
   2 +(J5*64.75
   2 +(J5*36.75
   2 +(J5*20.75
   2 +(J5*11.75
   1 ffff)+(((18000
   1 efff,71.13
   1 Z4=(((J5-45750
   1 Z4=(((J5-36500
   1 Z4=(((J5-27500
   1 Z4=(((J5-18000
   1 Z4=(((J5-12000
   1 Z1=Z1/1000
   1 Z1=((J2-62
   1 Z1=((J2-55
   1 Z1=((J2-40
   1 Z1=((J2-25
   1 Z1=((J2-12.5
   1 Y$="NO THIRD LIMIT"
   1 Y$="MINUS-N"
   1 W1=(((J5-V2)/(V3-V2))*.35
   1 W1=(((J5-V1)/(V2-V1))*.25
   1 W1=(((J5-50000
   1 W1=(((J5-30000
   1 W1=(((J5-20000
   1 V8=W1*J1*795773
   1 V4=W1*J1*159155
   1 TEONW-based on the original report by Energy Commission USA
   1 S5;" DODEN."
   1 Q(Z2))*(J3/4
   1 PRINT SUBROUTINE "GROT"
   1 P1=(681.25
   1 P1=(406.25
   1 P1=(1081.25
   1 M(N)=M(N)*J4
   1 M(N)=A(N)*J4
   1 Developed on a Digital PDP-11 with BASIC V01B-02
   1 A(Z1);" KM HEEFT DE EXPLOSIE ZIJN KRACHT VERLOREN."
   1 A(S3);" METER."
   1 A(S2);" M EN EEN KRATERRAND VAN ";
   1 A(S1);" M,"
   1 A(R2);" M"
   1 A(R1);" METER DE BOEL VERBRAND,"
   1 =p)+(((30000
   1 =a$(y)=a$(x
   1 =a$(n)=a$(n
   1 =a$(n)=a$(
   1 ;"ZOU U DAT LEUK VINDEN?"
   1 ;"ZO SLOEG U 'N KRATER MET EEN STRAAL VAN ";
   1 ;"ZELFS GEBOUWEN OP ";
   1 ;"WILT U NOG SPELEN?"
   1 ;"WELKOM, ";I$;"!"
   1 ;"WAT IS DE KRACHT VAN UW BOM IN KILOTON TNT?"
   1 ;"WAAR OF OP WIE U MAAR WILT."
   1 ;"VOEGEN GERUKT. DE WINDSTOOT, DIE HIERVOOR VERANTWOORDELIJK IS,"
   1 ;"VERDER IS OVER EEN AFSTAND VAN ";
   1 ;"VANDAAG KUNT U MET MIJ EEN THEORETISCHE ATOOMAANVAL LANCEREN;"
   1 ;"UW NAAM, ALSTUBLIEFT."
   1 ;"UW BOM EXPLODEERDE TE HOOG OM EEN KRATER TE SLAAN."
   1 ;"U WILT TEVEEL VAN MIJ, HOOR!"
   1 ;"U WEL DE KANS UW KUNSTSTUKJE IN HET ECHT UIT TE HALEN."
   1 ;"TERWIJL GEBOUWEN EN MENSEN OVER EEN AFSTAND VAN ";
   1 ;"PAS NA ";
   1 ;"OOK HEEFT U ERVOOR GEZORGD, DAT ER BINNEN EEN STRAAL VAN"
   1 ;"NOG SCHADE ONDERVINDEN DOOR DE HITTESTRALING."
   1 ;"NIET DAT ER NOG PLAATS ZOU ZIJN: OVER EEN AFSTAND VAN ";
   1 ;"NEGATIEVE HOOGTE MOET WORDEN BESCHOUWD"
   1 ;"KRACHT VAN EEN ORKAAN HEEFT."
   1 ;"KILOMETER STAAT GEEN STEEN MEER OP DE ANDERE."
   1 ;"JE BENT EEN SLAPPELING, ";I$;"! IK HAD MEER VAN JE VERWACHT."
   1 ;"IS ZO KRACHTIG, DAT ZIJ OP ";
   1 ;"IK ZEI TOCH, DAT IK NIET MEER MET U WILDE SPELEN?!"
   1 ;"IK LIEVER NIET."
   1 ;"HEEFT SLECHTS DE HELFT VAN DE BEVOLKING HET OVERLEEFD."
   1 ;"HEBBEN DE MENSEN DIE IN DE EXPLOSIE KEKEN OOGLETSEL OPGELOPEN."
   1 ;"GROT VAN BEHOORLIJKE AFMETINGEN."
   1 ;"GEFELICITERD! U HEEFT MET UW BOM PRIMA RESULTATEN GEBOEKT."
   1 ;"GEEF DE HOOGTE VAN DE EXPLOSIE IN METERS, WAARBIJ DE DIEPTE ALS"
   1 ;"GEEF DE GEMIDDELDE BEVOLKINGSDICHTHEID IN INWONERS/KM*KM"
   1 ;"EN ZELFS DAARNA NOG, TOT OP ";
   1 ;"EINDELIJK EEN MAN MET VERANTWOORDELIJKHEIDSGEVOEL!"
   1 ;"EEN GEWELDIG RESULTAAT! IK ZAL U VAN HARTE AANBEVELEN BIJ EEN"
   1 ;"EEN DIEPTE VAN ";
   1 ;"DOOR DE GROTE HOOGTE WAS DE STRALING NOGAL VERZWAKT. HOOGUIT"
   1 ;"DOOR DE GROTE HOOGTE WAS DE SCHOKGOLF DUSDANIG VERZWAKT,"
   1 ;"DEPTH OF EXPLOSION ";J5;" METERS - INPUTE EXPLOSION YIELD"
   1 ;"DE OPPERVLAKTE NIET BEREIKTE. WEL SLOEG ZE EEN CYLINDERVORMIGE"
   1 ;"DE EXPLOSIE VOND ZO DIEP ONDERGRONDS PLAATS, DAT ZIJ"
   1 ;"DAT ZIJ WEINIG EFFECT MEER HAD."
   1 ;"COLLEGA VAN ME OP HET PENTAGON. MISSCHIEN GEEFT PRESIDENT REAGAN"
   1 ;"AL MET AL KOMT DAT NEER OP EEN KLEINE ";
   1 3333)+(((V3-J5)/(V3-V2))*.25
   1 333,612.38
   1 -J5/(J1^.4
   1 - S3: HOOGTE RAND
   1 - S2: DIEPTE KRATER
   1 - S1: STRAAL KRATER
   1 - R2:  42 J/CM^2
   1 - R1: 210 J/CM^2
   1 - NEW YORK:
   1 - MANHATTAN:    25,000 INWONERS PER KM^2
   1 - M(5): LICHTE SCHADE BIJ .07 BAR OVERPRESSURE
   1 - M(4): BEAUFORT 12  BIJ 0.14 BAR OVERPRESSURE
   1 - M(3): ZWARE SCHADE BIJ 0.42 BAR OVERPRESSURE
   1 - M(2):  50% DODEN
   1 - M(1): 100% DODEN
   1 - CALCUTTA:
   1 - ##STAD X:
   1 )-(S4/J3))*(J3*.75
   1 )-((J2-108
   1 )+(J2*2.65
   1 )+(J2*.0615
   1 )+(((V2-J5)/(V2-V1))*.2
   1 )+(((60000
   1 )+(((52250
   1 )+(((50000
   1 )+(((45750
   1 )+(((36500
   1 )+(((27500
   1 ));" METER GEEN LEVENDE ZIEL MEER TE VINDEN IS."
   1 ));" KM VAN HET EXPLOSIEPUNT"
   1 ));" KM AFSTAND WORDEN FLINK UIT HUN"
   1 ));" KM AFSTAND NOG DE"
   1 )))*(J3*.75
   1 (V8-(J5*J5))
   1 (V4-(J5*J5))
   1 ###SLACHTOFFERCORRECTIES
   1 ###PRESENTATIE
   1 ###LUCHTDRUK BIJ ONDERGRONDSE EXPLOSIES
   1 ###LUCHTDRUK BIJ AIRBURSTS
   1 ###LAATSTE BEWERKING
   1 ###HITTESTRALING
   1 ###AFMETINGEN KRATER
   1 # TOPEKA, MIDDELPUNT U.S.A-PROEFGEBIED
   1  5750 INWONERS PER KM^2   
   1  40,000 INWONERS PER KM^2
   1  25 INWONERS PER KM^2
   1  2000 INWONERS PER KM^2
   1  10,000 INWONERS PER KM^2
   1  (7    BAR OVERPRESSURE)
   1  (4.5  BAR OVERPRESSURE)